Developer CD Series 1996 April: Mac OS SDK/Dev.CD Apr 96 SDK/Dev.CD Apr 96 SDK1.toast/Development Kits (Disc 1)/OpenDoc Development Framework/Development/PartMaker/Container•1.0d11v2/Container•1.0d11v2.rsrc/dFRK_5031

Text File | 1995-12-08 | 19.0 KB | 410 lines

(*
    This script was generated from "Save Project As Script"

    Generated from:

    Project:        Container.RB.π
    Date:        Friday, November 10, 1995 9:46:17 AM
*)

global gSPMFolder
global gTargetProjectFolder
global gTargetProjectIndex

property gOriginalProjectName : "Container.RB.π"
property gBuildFolder : "RBPPCDebug"
property gODFDevPath : ""

on GetParentFolder(filePath)
    set pathLength to length of filePath
    set folderEnd to 0
    repeat with i from pathLength to 1 by -1
        if (character i of filePath is ":") then
            set folderEnd to i
            exit repeat
        end if
    end repeat
    copy text from character 1 to character folderEnd of filePath to folderToSearch
    return folderToSearch
end GetParentFolder

on GetParentFolderOfFolder(folderPath)
    set pathLength to length of folderPath
    set folderEnd to 0
    repeat with i from (pathLength - 1) to 1 by -1
        if (character i of folderPath is ":") then
            set folderEnd to i
            exit repeat
        end if
    end repeat
    copy text from character 1 to character folderEnd of folderPath to folderToSearch
    return folderToSearch
end GetParentFolderOfFolder

on AddGroup(groupName, parentGroupName)
    tell application "Symantec Project Manager"
        tell project document gTargetProjectIndex
            try
                if (not (group groupName exists)) then
                    if (parentGroupName is not "") then
                        create new group as groupName at end of group named parentGroupName
                    else
                        create new group as groupName at end
                    end if
                    set is_open of group named groupName to true
                end if
            on error
                display dialog "An error occured while creating group " & segmentName & "."
                return
            end try
        end tell
    end tell
end AddGroup

on AddProjectEntry(entryName, path, mode, groupName)
    if (mode is "system") then
        set fileName to gSPMFolder & path & entryName
    else if (mode is "project") then
        set fileName to gTargetProjectFolder & path & entryName
    else
        set fileName to path & entryName
    end if
    tell application "Symantec Project Manager"
        tell project document gTargetProjectIndex
            try
                if (groupName is not "") then
                    if (not (source entryName of group groupName exists)) then
                        create new source as file fileName at end of group named groupName
                    end if
                else
                    if (not (source entryName exists)) then
                        create new source as file fileName at end
                    end if
                end if
            on error
                display dialog "An error occured while creating source " & entryName & "."
            end try
        end tell
    end tell
end AddProjectEntry

on GetProjectIndex(project)
    -- Find the index of the front project.
    -- We should be able to just say "set gTargetProjectIndex to index of front project document)"
    -- but there is a bug in the SPM right now where it doesn't index projects by window layering.
    tell application "Symantec Project Manager"
        set projectName to full path name of project
        set projectCount to count project documents
        repeat with i from 1 to projectCount
            set fpn to full path name of project document i
            if (fpn is projectName) then
                return i
            end if
        end repeat
    end tell
    return 0
end GetProjectIndex

on ConfirmTargetProject(targetProjectIndex)
    set hitOK to true
    tell application "Symantec Project Manager"
        -- Confirm the project
        set promptString to "Update project \"" & name of project document targetProjectIndex & "\"?"
        set confirmResult to display dialog promptString buttons {"New Project", "Cancel", "OK"} default button 3
    end tell
    return button returned of confirmResult
end ConfirmTargetProject

on ChooseTargetProject()
    tell application "Symantec Project Manager"
        if number of project document = 0 then
            set promptForNewProject to true
            set targetProjectIndex to 0
            --else if (class of front document is project document) then
            --    set targetProjectIndex to my GetProjectIndex(front document)
        else if (exists main_project) then
            set targetProjectIndex to index of main_project
        else
            set targetProjectIndex to 0
        end if

        if (targetProjectIndex > 0) then
            set confirmButton to my ConfirmTargetProject(targetProjectIndex)
            if (confirmButton is not "OK") then
                set promptForNewProject to true
            else
                set promptForNewProject to false
            end if
        else
            set promptForNewProject to true
        end if

        if (promptForNewProject) then
            try
                --set newProjectSpec to new file with prompt "New Project Name:" default name gOriginalProjectName
                create new project document as file (gODFDevPath & "Container:" & gBuildFolder & ":" & gOriginalProjectName)
                set targetProjectIndex to my GetProjectIndex(front document)
            on error
                set targetProjectIndex to 0
            end try
        end if
    end tell
    return targetProjectIndex
end ChooseTargetProject

choose folder with prompt "Where is your ODF Development folder (ODFDev)?"
set gODFDevPath to (the result as string)

tell application "Finder"
    if not (exists folder "ODF" of (gODFDevPath as alias)) then
        error "Can't find the 'ODF' folder inside your ODF Development folder."
        return
    end if

    if not (exists folder "Container" of (gODFDevPath as alias)) then
        error "Can't find your 'Container' folder inside your ODF Development folder."
        return
    end if

    if not (exists folder "•RBDbSy" of ((gODFDevPath & "Container:Sources:") as alias)) then
        error "Can't find '•RBDbSy'. Did you run the MPW 'Build' script to build the resources?"
        return
    end if

    make new folder at folder (gODFDevPath & "Container:" & gBuildFolder & ":") with properties {name:"(Container.RB.π)"}
    make new alias file to ((gODFDevPath & gBuildFolder & ":Precompile Headers") as alias) at ((gODFDevPath & "Container:" & gBuildFolder & ":(Container.RB.π)") as alias)
    make new alias file to ((gODFDevPath & gBuildFolder & ":Lib") as alias) at ((gODFDevPath & "Container:" & gBuildFolder & ":(Container.RB.π)") as alias)
    make new alias file to ((gODFDevPath & "Container:Sources:") as alias) at ((gODFDevPath & "Container:" & gBuildFolder & ":(Container.RB.π)") as alias)
end tell

tell application "Symantec Project Manager"
    activate
    set gTargetProjectIndex to my ChooseTargetProject()
    if (gTargetProjectIndex is 0) then
        return
    end if
    set gSPMFolder to my GetParentFolder(filespec as string)
    set temp to my GetParentFolder(filespec of project document gTargetProjectIndex as string)
    set gTargetProjectFolder to my GetParentFolderOfFolder(temp)
end tell

-- Add all the groups
my AddGroup("1. Container", "", gTargetProjectIndex)
my AddGroup("2. ODF", "", gTargetProjectIndex)
my AddGroup("3. OpenDoc", "", gTargetProjectIndex)
my AddGroup("4. Runtime Libraries", "", gTargetProjectIndex)
my AddGroup("5. System Libraries", "", gTargetProjectIndex)

-- Add all the source files
my AddProjectEntry("EditCmds.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerClip.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerCmds.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerDDCmd.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerFrm.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerLink.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerPart.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerPromise.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerSel.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerView.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("FloatFrm.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("PalFrame.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("PatFrame.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ShpTrakr.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ToolFrm.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("Utils.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("FWRuler.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("SOMIter.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("SOMPart.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("BaseShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("BoundShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerPrxy.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("LineShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("OvalShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("RectShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("RRectShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("TextShp.cpp", "Sources:Sources:", "project", "1. Container", gTargetProjectIndex)

my AddProjectEntry("ContainerPart.rsrc", "Sources:•RBDbSy:", "project", "1. Container", gTargetProjectIndex)
my AddProjectEntry("ContainerStrs.rsrc", "Sources:•RBDbSy:", "project", "1. Container", gTargetProjectIndex)

set gTargetProjectFolder to my GetParentFolderOfFolder(gTargetProjectFolder)

my AddProjectEntry("Framewrk.xcoff", gBuildFolder & ":Lib:", "project", "2. ODF", gTargetProjectIndex)
my AddProjectEntry("ODFFound.xcoff", gBuildFolder & ":Lib:", "project", "2. ODF", gTargetProjectIndex)
my AddProjectEntry("ODFOS.xcoff", gBuildFolder & ":Lib:", "project", "2. ODF", gTargetProjectIndex)
my AddProjectEntry("FWOSMisc.rsrc", "ODF:OS:FWOSMisc:•RBDbSy:", "project", "2. ODF", gTargetProjectIndex)
my AddProjectEntry("FWPrint.rsrc", "ODF:Framewrk:FWPart:•RBDbSy:", "project", "2. ODF", gTargetProjectIndex)
my AddProjectEntry("FWPrtStr.rsrc", "ODF:Framewrk:FWPart:•RBDbSy:", "project", "2. ODF", gTargetProjectIndex)
my AddProjectEntry("FWWindow.rsrc", "ODF:OS:FWWindow:•RBDbSy:", "project", "2. ODF", gTargetProjectIndex)

my AddProjectEntry("ODUtilities.xcoff", gBuildFolder & ":Lib:", "project", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc User Interface.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Storage.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Messaging.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Layout.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Imaging.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Core.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Binding.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)
my AddProjectEntry("Memory Manager.stub", "Macintosh Libraries:OpenDoc:Libraries:PEF:", "system", "3. OpenDoc", gTargetProjectIndex)

my AddProjectEntry("OpenDoc PPCRuntime.o", "Macintosh Libraries:PPC Libraries:", "system", "4. Runtime Libraries", gTargetProjectIndex)
my AddProjectEntry("PPCCPlusLib TCL.o", "Standard Libraries:", "system", "4. Runtime Libraries", gTargetProjectIndex)
my AddProjectEntry("PPCANSI.o", "Standard Libraries:", "system", "4. Runtime Libraries", gTargetProjectIndex)

my AddProjectEntry("AppleScriptLib", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("DragLib", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("InterfaceLib", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("MathLib", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("somlib", "Macintosh Libraries:SOM:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("QuickTimeLib", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("ThreadsLib", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)
my AddProjectEntry("QuickDrawGXLib.xcoff", "Macintosh Libraries:PPC Libraries:", "system", "5. System Libraries", gTargetProjectIndex)

tell application "Symantec Project Manager"
    tell project document gTargetProjectIndex

        -- Set up project options
        set compact_on_close to true
        set confirm_updates to false
        set update_subprojects to true
        set check_file_dates to false
        set run_with_debugger to true

        -- Set up project type options
        set target_type to PowerPC_library
        set file_type to "shlb"
        set file_creator to "odfO"
        set SIZE_flags to 22720
        set partition_size to 1024
        set minimum_partition_size to 1024
        set ask_for_target to false
        set target_name to file (gTargetProjectFolder & "Container:" & gBuildFolder & ":Bin:Container")
        set merge_68k_application to false
        set source_68k_application to file ""
        set custom_stack_size to 0
        set export_all_symbols to false
        set current_lib_version to 0
        set lib_definition_version to 0

        -- Set up linker options
        set linker_to_use to incremental_linker
        set smart_link to true
        set generate_link_map to false
        set update_subprojects to true
        set generate_cross_references to false
        set use_makesym to false
        set ppclink_options to "-main __cplusstart"
        set makesym_options to ""
        set makepef_options to "-l 'AppleScriptLib.xcoff.o=AppleScriptLib' ∂" & return & ¬
            "-l 'InterfaceLib.xcoff.o=InterfaceLib' ∂" & return & ¬
            "-l 'DragLib.xcoff.o=DragLib' ∂" & return & ¬
            "-l 'MathLib.xcoff.o=MathLib' ∂" & return & ¬
            "-l 'ObjectSupportLib.xcoff.o=ObjectSupportLib' ∂" & return & ¬
            "-l 'QuickTimeLib.xcoff.o=QuickTime' ∂" & return & ¬
            "-l 'StdCLib.xcoff.o=StdCLib' "

        -- Set up extensions
        set extension_map to {¬
            {the_extension:".c", the_translator:"PowerPC C"}, ¬
            {the_extension:".cp", the_translator:"PowerPC C++"}, ¬
            {the_extension:".cpp", the_translator:"PowerPC C++"}, ¬
            {the_extension:".hpp", the_translator:"PowerPC C++"}, ¬
            {the_extension:".o", the_translator:"XCOFF Converter"}, ¬
            {the_extension:".r", the_translator:"Symantec Rez"}, ¬
            {the_extension:".rsrc", the_translator:"Resource Copier"}, ¬
            {the_extension:".va", the_translator:"Resource Copier"}, ¬
            {the_extension:".xcoff", the_translator:"XCOFF Converter"} ¬
                }

        -- Set up project window options
        set order_by to order_by_name
        set ascending_order to true
        set show_group_hierarchy to true
        set show_entry_icon to true
        set show_debugging_status to true
        set show_group_membership to false
        set show_translator to false
        set show_type to false
        set show_location to false
        set show_last_modification to false
        set show_code_size to true
        set show_data_size to false
        set show_make_status to true
        set show_projector_status to true
        set font to "Geneva"
        set font_size to "9"

        -- Set up "PowerPC C" options
        set ansi of Options "PowerPC C" to true
        set ansi_strict of Options "PowerPC C" to relaxed_ansi
        set read_header_once of Options "PowerPC C" to true
        set chars_unsigned of Options "PowerPC C" to false
        set pack_enums of Options "PowerPC C" to false
        set map_cr of Options "PowerPC C" to false
        set Language of Options "PowerPC C" to English
        set struct_align of Options "PowerPC C" to align_4
        set global_optimizer of Options "PowerPC C" to false
        set gopt_time of Options "PowerPC C" to optimize_time
        set force_frame of Options "PowerPC C" to false
        set generate_symbolics of Options "PowerPC C" to true
        set error_reporting of Options "PowerPC C" to report_first_few_err
        set generate_warn of Options "PowerPC C" to true
        set warn_unintended_assign of Options "PowerPC C" to true
        set warn_nest_comments of Options "PowerPC C" to true
        set warn_unused_expressions of Options "PowerPC C" to true
        set warn_empty_loops of Options "PowerPC C" to true
        set warn_used_before_set of Options "PowerPC C" to true
        set warn_large_auto of Options "PowerPC C" to true
        set warn_return_addr_auto of Options "PowerPC C" to true
        set warn_unrecognized_pragma of Options "PowerPC C" to true
        set prefix of Options "PowerPC C" to "#include <PPC Macheaders>"
        set check_ptrs of Options "PowerPC C" to true
        set require_protos of Options "PowerPC C" to true
        set infer_protos of Options "PowerPC C" to infer_prototypes

        -- Set up "PowerPC C++" options
        set ansi of Options "PowerPC C++" to true
        set ansi_strict of Options "PowerPC C++" to relaxed_ansi
        set read_header_once of Options "PowerPC C++" to true
        set chars_unsigned of Options "PowerPC C++" to false
        set pack_enums of Options "PowerPC C++" to true
        set map_cr of Options "PowerPC C++" to false
        set Language of Options "PowerPC C++" to English
        set struct_align of Options "PowerPC C++" to align_2
        set global_optimizer of Options "PowerPC C++" to false
        set gopt_time of Options "PowerPC C++" to optimize_time
        set force_frame of Options "PowerPC C++" to false
        set generate_symbolics of Options "PowerPC C++" to true
        set error_reporting of Options "PowerPC C++" to report_first_few_err
        set generate_warn of Options "PowerPC C++" to true
        set warn_unintended_assign of Options "PowerPC C++" to true
        set warn_nest_comments of Options "PowerPC C++" to true
        set warn_unused_expressions of Options "PowerPC C++" to true
        set warn_empty_loops of Options "PowerPC C++" to true
        set warn_used_before_set of Options "PowerPC C++" to true
        set warn_large_auto of Options "PowerPC C++" to true
        set warn_return_addr_auto of Options "PowerPC C++" to true
        set warn_unrecognized_pragma of Options "PowerPC C++" to true
        set prefix of Options "PowerPC C++" to "#include \"ODFHeaders.RB\"" & return & ¬
            "#pragma options(system_includes_from_project_tree)" & return & ""
        set dont_inline of Options "PowerPC C++" to false
        set warn_old_style_delete of Options "PowerPC C++" to true
        set warn_struct_without_tag of Options "PowerPC C++" to true
        set warn_missing_overloads of Options "PowerPC C++" to true
        set warn_ref_init of Options "PowerPC C++" to true
        set warn_old_style_definition of Options "PowerPC C++" to true
        set warn_cast_incomplete_type of Options "PowerPC C++" to true

        -- Set up "Symantec Rez" options
        set Redeclared Types of Options "Symantec Rez" to true
        set prefix of Options "Symantec Rez" to "#define SystemSevenOrLater 1" & return & ""

        -- Set debug
        set debug of group "1. Container" to true
        set debug of group "2. ODF" to false
        set debug of group "3. OpenDoc" to false
        set debug of group "4. Runtime Libraries" to false
        set debug of group "5. System Libraries" to false
    end tell
end tell